

package TagServer::Pessoa;


#UML_MODELER_BEGIN_PERSONAL_VARS_Pessoa

#UML_MODELER_END_PERSONAL_VARS_Pessoa

use TagServer::Model;

use base qw( TagServer::Model );



=head1 PESSOA



=cut


=head1 PUBLIC ATTRIBUTES

=pod 



=cut


=head1 PUBLIC METHODS

=pod 

=head3 new

   Parameters :

   Return : 
      

   Description : 
      

=cut

sub new
{
  my($self    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_new
#UML_MODELER_END_PERSONAL_CODE_new
}


=pod 

=head3 update

   Parameters :
      id : $ : 
      nome : $ : 
      cpf : $ : 
      telefone : @ : 
      email : @ : 

   Return : 
      

   Description : 
      

=cut

sub update
{
  my($self,
     $id, # $ : 
     $nome, # $ : 
     $cpf, # $ : 
     $telefone, # @ : 
     $email, # @ : 
    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_update
#UML_MODELER_END_PERSONAL_CODE_update
}


=pod 

=head3 getData

   Parameters :

   Return : 
      %

   Description : 
      

=cut

sub getData
{
  my($self    ) = @_;
#UML_MODELER_BEGIN_PERSONAL_CODE_getData
#UML_MODELER_END_PERSONAL_CODE_getData
}




=cut


=head1 METHODS FOR SUBCLASSING



=cut


=head1 PRIVATE METHODS



=cut






return 1;
